unit constants;

{$mode objfpc}{$H+}

interface

{ Optotype direction }
type
  TDirection = (
    dNorth = 0,
    dEast = 1,
    dSouth = 2,
    dWest = 3,
    dNone = 8);

const
  INT_TDIRECTION_COUNT = 4;
  INT_TDIRECTION_MAX   = 3;
  INT_OPTOTYPESIZE_MAX = 9; // zero based, so count=10

{ Optotype size }
const
  OptotypeSizes: array[0..INT_OPTOTYPESIZE_MAX] of Word =
    (80, 60, 40, 30, 18, 15, 12, 9, 6, 5);
  OptotypeResolutions: array[0..INT_OPTOTYPESIZE_MAX] of Word =
    (22, 16, 12,  8,  6,  5,  4, 3, 2, 1);
  OptotypeAmounts: array[0..INT_OPTOTYPESIZE_MAX] of Word =
    (3, 4, 5, 5, 5, 6, 7, 8, 8, 8);

  INT_TESTE_SIZE_MAX   = 0;
  INT_TESTE_SIZE_START = 2;
  INT_TESTE_MIN_ROW    = 0;
  INT_TESTE_MAX_ROW    = 9;
  INT_MAX_ERRORS_IN_LINE = 1;

  INT_WINDOW_HEIGHT = 550;
  INT_WINDOW_WIDTH = 550;

  INT_TESTDRAWER_HEIGHT = 480;
  INT_TESTDRAWER_WIDTH = 480;
  INT_TESTDRAWER_VSPACING = 10;
  INT_TESTDRAWER_TABLE_HSPACING = (INT_WINDOW_WIDTH - INT_TESTDRAWER_WIDTH) div 2;
  INT_TESTDRAWER_TABLE_VSPACING = (INT_WINDOW_HEIGHT - INT_TESTDRAWER_HEIGHT) div 2;

var
  Optotypes: array[0..9] of array[0..8] of TDirection;

const
  Str_Instruction_Step = 'Utilize as setas do teclado para indicar a direção da abertura do caracter selecionado. Passo %d';
  Str_Instruction_VA = 'Sua Acuidade Visual é: 20 / %d';
  Str_Arcmins = '1 pixel = %f arcmins, MaxVA = 20 / %d';

  Str_Brtablet = 'Brtablet';

  SectionAdmin = 'Admin';
  SectionUsers = 'Users';

  IdentSenha = 'Senha';

implementation

end.

